home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / prog / tpex.arj / C6EX1.PAS next >
Pascal/Delphi Source File  |  1993-09-01  |  422b  |  22 lines
  1. PROGRAM C6ReviewExercise1;
  2.  
  3. USES Crt;
  4.  
  5. VAR     ShoeSize:     BYTE;
  6.         Weight:       BYTE;
  7.         Height:       BYTE;
  8.  
  9. CONST   Spc = ' ';
  10.  
  11. BEGIN
  12.    CLRSCR;
  13.    ShoeSize := 11;
  14.    Weight := 204;
  15.    Height := 73;
  16.    WRITELN( 'Shoesize is: ', ShoeSize );
  17.    WRITELN( 'Weight is: ', Weight );
  18.    WRITELN( 'Height is: ', Height );
  19.    WRITELN;
  20.    WRITELN( Shoesize, Spc:1, Weight, Spc:1, Height );
  21. END.
  22.